home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
ins_msb
/
9005
/
test.bas
< prev
next >
Wrap
BASIC Source File
|
1990-05-01
|
400b
|
20 lines
'PROGRAM - TEST.BAS
' Demonstrate effect of literal strings on DGROUP
DEFINT A-Z
DIM Array$(10)
PRINT "Free string space before:";FRE(Array$(1))
PRINT "STACK before :";STACK
FOR I = 1 TO 10
READ Array$(I)
NEXT
PRINT "Free string space after :";FRE(Array$(1))
PRINT "STACK after :";STACK
DATA One,Two,Three,Four,Five
DATA Six,Seven,Eight,Nine,Ten